EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 


**FILE**1D**L IBMOVTC 


LL I11111 BBBBBBBB MM MM 000000 VV VV oTTTTTTTTTT cccccccc 

LL 1111] BBBBBBBB MM MM 000000 VV VV oTTTTTTTTTT ccccccce 

LL II BE BB MMMM MMMM O00 oO VV VV TT cc 

LL I] BB BB MMMM MMMM 00 00 VV VV TT c¢c 

LL I] BB BB MM MM MM «O00 oO vv VV TT cc 

LL I] BB BB MM MM MM «00 00 vv VV TT cc 

LL II BBBBBBBB MM MM 00 00 vv VV TT cc 

LL I] BB MM MM 00 00 vv VV TT cc 

LL I] BB BB MM MM 00 00 vv VV TT cc 

LL i] BB BB MM MM 00 00 vv VV TT cc 

LL I] BB BB MM MM 00 00 VV VV TT cc eees 
LL I] BB BB MM Mm 0 VW VV TT cc eeee 
LLLLLLLLLL III! BBBBBBBB MM MM 000000 VV TT cccccccc eeee 
LLLLLLLLLL III] B MM MM 000000 VV TT cccccccc eee 
LL III] SSSSSSSS 

LL III] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL II SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL II SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL IIIT] SSSSSSSS 

LLLLLLLLLL 111! SSSSSSSS 


-r 


bible of contents 
$ 1% 


a 


= Move Translated Characters 


ATIONS 
VTC = Translate and Move Characters 


16-SEP-1984 00:14:05 VAX/VMS Macro v04-00 
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E Legnovre - Move Translated Characters 
T /1-012/ ; File: LIBMOVTC.MAR Edit: RKR1012 


MARBAAAAAAAAALALALALALS LEASES ESSERE SEE SERRE ES ESE R EERE R ERE EE EEE RESET RRR 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PAASFERAEOY NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


=" 


SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


* 

® 
-* 
-* 
*2 
-* 
-* 

® 
ea 
s@ 
-® 
-* 
-* 
-® 
-* 
-* 
:* 
-* 
-f* 
-* 

® 


(ARR RAAAAAAAAALAAALALALASALALASARSSESELERESE RRS ESSER AREAS ESR E EES AAR RARE SS 


++ 
FACILITY: General Utility Library 


; ABSTRACT: 


SOOCCSCOCSOSOSOOSSOSSOOSOSOSOSSOSSSOSSSOSSOSOSOSOSOOSOSOSOSOSOOOOOOOOCOOOOOOOO 


SOSCOSSSOSOSCOSOSOOSOSOSOSOOSOOSOSOSOSOOSOSOSOSOOSOOOOOOOCOOOOCOOoOO 
SOOSGOCOCOCOOCOCOCOOSOSSOSSOSOSOSOSOSSSOSOSOOSCOSCOOOCOOOOCOOOOOOOOOOOOOOOOoOO 


NA ALS WIR @ OOO NADU WIN SO OD NAMES WN OS ODNA UE WN 0 COONAN SU OOONOUS wr 


PUPS E™ Be BB BBB EB WNW WIN WII AIP PPO NIPININONPUNINY 2 OS OS OS 


SOOOCOOCSSOSCSOSOSOOSSOSOOSOOOSOOSOOSOOSOSOSOSOOSOOOOOOOOOOOOOOOOO. 


oo 


Move translated characters from the source to the destination. 
The fill character is employed if the destination is longer 
than the source and the destination semantics are fixed-length. 


; ENVIRONMENT: User Mode, AST Reentrant 


; AUTHOR: Donald G. Petersen, CREATION DATE: 30-Dec-77 
; MODIFIED BY: 


DGP, 30-Dec-77 : Version 00 
- Original 
bug fix. Add @ to fill character pointer. DOGP 9-May-78 
Update version number and copyright pot tga. JBS 16-NOV-78 
Add ‘'_"* to PSECT directive, JBS 21-DEC-78 

If the destination periap is dynamic, allocate enougn space 

to hold the whole translated source string: S 20-MAR-1979 
Change LIB$S and OTS$S to STR$. JBS 21-MAY-19 
Put in Be assembler directives. JBS 19-JUN-1979 
Use handler to change STR errors to LIB. RW 22-Jan-1980 
Enhance to recognise additional classes of str ng descriptors 
by invoking LIBSANALYZE_SDESC_R3 to extract length and address 
of Ist data byte from descripfor. 


—— teat IOOD 


SMOVTC 


= Move Translated 
12 


\! 


38 | 
a 
eg + 1-008 - 
65 ; 
p 64 : 1-009 - 
65 : 1-010 - 
900 e8 
eae 
$09 $ : 1-011 - 
00 fl 3: 
00 a ; 
000 73; 
000 74: 1-012 - 
0000 75: 
0000 06 ; 
0000 (77: 
0000 78 :-- 


Characters 


"SSEe=1986 99:09:98 EMGRTC. SReSCrBRovic man; 1 


Use LIBSSGET1_DD instead of STRSGET1_DX to allocate space. 

Th ; should be faster and eliminate fhe need for establishing 
L1B SS TRO Rel as a handler. 
RKR 22-MAY=1981 


Add checks for errors returned by at Tp SDE 
we returned error status to caller. RKR 19-A0G-1 
Analyze source before allocating dest string. SBL 
Add special-case code to process string descriptors 
“read Like fixed string descriptors. 

Fix error in calling sequence to LIBS$SGET1_DD. Needs Length 
by rgterence 

RKR 8-OCT~1981. 

Redirect jsb's from LIBSANALYZE_SDESC_R3 to 
LIBSANALYZE_SDESC_R2. Reorganize register usage to free 

R7 and drop R7 from entry mask. 

RKR 18-NOV-1981. 

Check for truncation and return LIB$_STRTRU if it occurs. 
This feature has been in the documentation, but not in the 


code. 
RKR 17-AUG-1982 


Page 


so that 
81 
23-Sept-1981 
that 


Gj 


ed 
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IBSMOVTC - Move T lated Ch 16- 4 - 
ite DECLARATIONS vee cnaracters g-SEb=l98e 14:09:18 Lelanne.sacaciamovee mars? §2%% (3) 
9 ; -SBTTL DECLARATIONS 
; ; INCLUDE FILES: 
4° DSCDEF ; Descr iptor symbols 
: SSDEF ; SS$_NORM 
; EXTERNAL SYMBOLS 
8 -DSABL GBL ; Explicit externals only 
3 -EXTRN LIBSANALYZE_SDESC_R2 : street un th and address of 
3 1st data e 

4 EXTRN LIBSSGET1_DD 3; Allocate 2’ string 

Bp 38 ' EXTRN LIBS$_STRTRU ; Truncation status 

000 94 : MACROS 

44 95; 

00 36 ; NONE 

0000 97 ; 

444 98 ; EQUATED SYMBOLS: 

000 99 ; 

0000 100; NONE 

0000 101; 

0000 10¢ 3 OWN STORAGE: 

0000 103; 

0000 104; NONE 

0000 105; 

800 196 : PSECT DECLARATIONS: 

00000000 108 ° .PSECT _LIBSCODE PIC, SHR, LONG, EXE, NOWRT 


} 
I 11 | 
IBSMOVTC - Move Translated Characters 16-SEP-1984 00:14:05 VAX/VMS Macro v04-00 Pa 4 
ete LIBSMOVTC = Translate and Move Characte = $eE 382 9:09:18 ETARTL. SREILIGMOVTC MAR: 1 ” sal 
119 on -SBTTL LIBSMOVTC = Translate and Move Characters 
11 ; FUNCTIONAL DESCRIPTION: | 
114 ; Each character in the source is used as an index into the table. 
115 ; The byte entry found is then placed into the destination as a 
118 : translation. The fill character is used if the destination 
WW? 3 ethan is longer than the source string and the destination 
00 18 3 sematics are fixed-length. If the source is 
00 119 ; longer than the destination, then truncation results. 
00 : 9 3 oak Ay the source and destination strings does not affect 
; xecu . 
$00 1 ¢ 3 Overlap of the destination string and translation table yields 
000 «+1 : unpredicatable results. 
0000 124; If the destination string is dynamic, enough space is allocated 
44 125 ; for it to hold the entire translated source ptr ing. 
00 1 § 3 Destination strings which have verying-lengts string semantics 
0000 127 ; will end up with a CURLEN field that is the MIN( MAXSTRLEN, 
0000 128 ; SOURCE string length). 
0000 129; 
B208 ! 9 3; CALLING SEQUENCE: 
444 : § ; CALL LIBSMOVTC (src.rt.dx, fill.rt.dx, table.rt.dx, dst.wt.dx) 
0000 134 
0000 135 ; INPUT PARAMETERS: 
90000004 9000 137 SOURCE = 4 Adr. of d i 
= ; Adr. of desc. of source strin 
00000008 0000 138 L = 8 t adr. of desc. of fill character 
0000000C 48 133 TABLE = 12 ; Adr. of desc. of translation table 
0000 141 ; IMPLICIT INPUTS: 
4 146 ; 
000 143; NONE 
0000 144 ; 
0000 145 ; OUTPUT PARAMETERS: 
9000 146 ; 
00000010 444 ts DEST = 16 ; Adr. of desc. of destination string 
$600 149 ; IMPLICIT OUTPUTS: 
000 150; 
it 151 ; NONE 
00 13 ; 
0900 137 ; COMPLETION CODES: 
000 155; SS$$_NORMAL The MOVTUC went OK 
000 136 ; LIBS_FATERRLIB Fatal error in library 
000 157; LIBS_INSVIRMEM Insufficient virtual memory to allocate 
138 ; the destination string. 
by ae LIBS_INVSTRDES Invalid string descriptor | 
160 ; LIBS_STRTRU The destination string could not contain 
00 161 ; all of the characters. 
3 16¢ 3 
165 ; 
164 ; 
165 ; NONE 
166 ; 


SIDE EFFECTS: 
| 


-=r 


l Shed 


wi 
oO 
oo 


eal 
ww 
So 


Vian OWOr,r 
om FOOACOO 


00000000' 
01 


55 


“ 
— 


04 
00000000 ' GF 
SE 

01 


MmoorvuV1"e-OoP,Yp 
SOfmouvino 


eocceers"t 
4D 50 
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007¢ 


SOMO Wwoo-oo 
Foownoon—o 


ma —0O—-0o9 OMe —9o—09 
oo ->F PO COWOO —OPr-co 
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Translated Characters 


t 1 mi iets 
- Translate and Move Characte 6-SEP-1984 


1:09:98 


~-ENTRY LIBSMOVTC , “M<R2, R3, R4, RS, RO> 


MOVL §SOURCE(AP) RO 
CMPB DSCSB_CLASS(R ), #DSCSK_ 
BGTRU 5$ 
MOVa @SQURCE CAP), RS 
BRB 15$ 

5$: JSB G*LIBSANALYZE_SDESC_R2 
BLBS RO, 10$ 
RET 

10$: MOV Ri, RS 


AX/VMS Macro V04-00 
LIBRTL.SRCJLIBMOVTC.MAR;1 


; Entry point 


4 
: Get the length and address of the source string. 


; Address of SOURCE descriptor 
CLASS_D ; read Like fixed ? 

3; no 

; length=>R5, address->R6 
3 join common flow 


3; Extract: Length=>R1, addr->R2 
; If ok, continue 
; else, error -- return 


; save length and addr of SOURCE 
3; length => RS, addr-> R6 


167 
189 
126 
17 
17 
0 17 
0 174 
175 
A 176 
0 17 
ie 
i 
a i 
oie 188 
O1C 184 
O1F 185 
sr I. 
001F 183 : If the destination string is dynamic, allocate enough space for it 
8 : 193 : that it will hold the whole translated source string. 
OO1F 191 15$:  MOVL  DESTCAP), RO ; Point to dest descr. 
0023 19¢ CMPB = #DSCS$K_CLASS_D, DSCS$B_CLASS(RO) ; Dynamic? 
0027 19 BNEQ 208 3; No, use it as is. 
89 9 194 PUSHL R5 ; length 
02B 195 PUSHL 3; address 
002D 196 PUSHAW 4(SP) ; address of Length 
8 0 197 CALL #2, G*LIBSSGET1_DD 
37S «198 ADDL #4, 3; realign stack 
003A 199 BLBS RO, 208 
Boe 201 s RET ; If alloc. fails 
003E 8S : Extract the various lengths and addresses we will need and leave 
Boe 82 ; in registers for the actual MOVTC instruction to follow. 
O03 05 208: 
0 3 06 MOVL TABLE(AP), RO 3; Address of TABLE descriptor 
04 07 CHP SC$B_CLASS(RO), MDSCSK_CLASS_D ; read Like fixed ? 
: no 
be8 09 OVL R5LSA_POINTERCRO)., R$  ; address of TABLE 
Bee 1 BRB 0$ : join common flow 
04E \¢ 25$: JSB G*LIBSANALYZE_SDESC_R2 ; Extract: Length->R1, addr->R2 
54 1 BLBC RO, 70$ ; If error, return error 
7 1 MOVL R2, R 3; save addr of TABLE 
SA 1§ 30$: MOVL FILLCAP), RO ; Address of FILL descriptor 
O66 } rues CLASS(RO), #DSCSK_CLASS_D : read Like fixed ? 
: fio 
6 ig MOVZBL @DSCSA_POINTER(RO), R4 ; value of fill character 
oe Y BRB 408 : join common flow 
§ 35$: JSB GALIGSANALYZE_SDESC_R2 ; Extract: length->R1, addr->R2 
0 BLBC RO, 70% : If error, return error 


roe 


— | 


K 11 
IBSMOVTC - Move Translated Characters 16-SEP-1984 214: AX/VMS Macro V04- P 
thy LIBSMOVTC = Translate and Move Characte mit} 90:49398 PONTE eRETCIBMOV ee -MAR:1 — (%) 


54 62 9A 4 MOVZBL (R2), R4 ; value of fill character 


; State of regs after a MOVTC instr. 

RO = number of translated bytes 
remaining in source string. 
Is non zero only if source string 
is longer than destination 
string. 
address of one byte beyond the 


L 
§ 
7 | D 
10 A 7 40S: MOVL DEST(AP), RO ; Address of DEST descriptor D 
3 8 Kb 1 cA ys # Dd $B_CLASS(RO), #DSCS$K_CLASS_D 3; read like fixed ? 4 
3 no 
51 10 43 7D 6 mMOva lade R1 § Ta greet address=->R2 D 
11 ; BRB 0 ; join common flow 4 
00000000'GF 1 6 45$: JSB G*LIBSANALYZE_SDESC_R2 ; Extract: Length=>R1, addr->R2 F 
ef 50 £8 p : BLBC RO, aos 3; If error, return error . 
F i+ L 
6 F ; Class_VS destination is handled as a special case. We must try to L 
O8F 3; force its current Length (CURLEN) field to be the same size as the N 
O8F ; source length. However, this new length must be the MIN( source_len, T 
Boge ; and MAXSTRLEN). If source_len is greater than MAXSTRLEN, then output T 
+H : will be trunctated to MAXSTRLEN chars. 
50 10AC 00 bose 50s: MOVL DEST(AP), RO ; Address of DEST descriptor 
0B O03 A0 91 0093 CMPB = DSC$B_CLASS(RO), #DSCSK_CLASS_VS ; Class _VS ? 
11 12 0097 BNEQ 65$ 3 no, no special action needed 
60 55 B1 0099 CMPW R5, DSCSW_MAXSTRLEN(RO) ; SOURCE Len : MAXSTRLEN 
05 15 009C BLEQ «9s 55§ : if SOURCE Len Leq 
51 8 7 4 i a canadien R1 ; use MAXSTRLEN for CURLEN 
51 ge 3C Q0A3 55$: MOVZWL RS, R1 3; use SOURCE Len for CURLEN 
04 BO 51 BO Zeek 608: MOVW R1, @DSCSA_POINTER(RO) ; rewrite CURLEN field 
OOAA : prototype movtc 
BRaa : movtc srclen, srcaddr, fillchar, tableaddr, dstlen, dstaddr 
OOAA 65s: 
62 51 63 54 66 55 #=2E OQOAA MOVTC RS, (R6), R4, (R3), RI, (R2) ; move translated chars 


P 
I 
C 
Pp 
Ss 
Pp 
Ss 
P 
C 
A 
T 
1 
T 
3 
8 


OOONAUE WIN OOD NAME WIN OS OO NAU EWN CO OONOAUE WN OO OODNOUS WH OUOONOU 


SLL SIP AAA AAA AAA UM BPP PPP LEE 


PRIPOPIPIPPIPIPIPINIPIPNIPINIPUDINPINIPIPIPIPINPIPUNIPINININININYD 


0081 
0081 : 
0081 3 
0081 : 
0081 3 
et : 
081 : RI = 
0081 3 last byte in source string that 
0081 ; was translated. 
0081 : Re z 
it 3 a = address of the translation table 
bet ; RS = address of one byte beyond the 
0B1 ; 
50 05 1 TSTL RO ; Were all moved ? 
98 13 : BEQL 68$ 3 yes 
50 00000000'8F 00 MOVL #LIBS_STRTRU, RO ; Set up truncation status 
04 44 RET 
50 v1 00 BD 68$: MOVL #SS$_NORMAL, RO : Indicate normal completion 
04 CY 70$: hi ; Return to caller 


destination string. 


LIBSMOVTC - Move Translated Characters i a teh 9 99: 16:9 
6-SEP=1984 11:09: 


wo Macro V04-00 Page 
Symbol table 


v04- 7 
LIBRTL.SRCJLIBMOVTC MAR; 1 (3) 


DEST = 10 
DSCSA_POINTER = 4 
DSCS$B_CLASS = 3 
DSCSK_CLASS_D = 
DSCSK_CLASS_VS = 
DSCSURAKSTRLEN = $ 6 
= 

LIBSANALYZE_SDESC_R2 eenereee = §6X 8 
LIBSMOVTC 00000000 RG ; 
LIBSSGET1 DD eeneeeee =X | 0 
LIBS_STRTRU gererere x 00 
sourTE = 60008 04 
SS$_NORMAL = 01 
TABCE = 0000000C 

eeeeeeeenaeaaaoaeeon + 

! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 <( 0.) OO ¢ OO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 <( af 01 ¢( 1.) NOPIC USR CON ABS LCL NOSHR' EXE RD WRT NOVEC BYTE 
_LIBSCODE 000000C1 ¢« 193.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

eee 
: Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization $3 08:80:00.0 00: 00:00.68 
—} eusbrecee 21 —-90:00:09:41 90:00547 -80 
Sy bowhict SES Bg 
ass :00:00. 00:04. 
Symbol table output 3 00:00:00:08 ee SEE 
Psect synopsis output 3 00:00:00.01 00:00:00.01 
Cross-reference output a 4 SS 00:00:00.00 
Assembler run totals 416 0:00:05.1 00:00:20.85 


The working set Limit was 1200 pages. 

28230 bytes_(56 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 546 non-local and 15 local symbols. 
279 source Lines were read in Pass 1, prodyc ine 15 object records in Pass 2. 

9 pages of virtual memory were used to define 8 macros. 


| 
i 


poweececoeceeoocoeecoeeccons 


: Macro Library statistics : 


Macro Library name Macros defined 


_$255$DUA28: CSYSLIBISTARLET.MLB; 2 5 
604 GETS were required to define 5 macros. 


za- —- <r 


LIBSMOVTC 


VAX=-11 Macro Run Statistics bet 7 99:45:98 HaRTL. SRedCI MOSS MAR: 1 Seas 4) 
There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBMOVTC/OBJ=O0BJ$:LIBMOVTC MSRC$:LIBMOVTC/UPDATE=(ENHS$:LIBMOVTC) 
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